4 



A - 4 
A 4 



V 



# 



4 



4 



A 



4 



7 



A 



4 



4 



A 



4 



4 



V 
A 



V 




4 



4 



^1 



A 



7 



4 



4 



A 



N 

4 



Z. 
X" 



7 
A 



N 
Z. 



F 

7 



4- 



A 



z_ 
X" 



V xf 



A 



4 



A 



F 



f 



4 



4 



A 4 



K N 



v 



v 



4 



A 4 



F N 



4 



^ Z 
7 X 



F 
A 



A 4 



F X 



7 



Xf 



v 



F 



4 



XI 



A 



V 



V 



4 



7 X 



X 



A 



7 



A N 



^ 4 



F N 



xj 
4 



A 



7 



A z_ 
-7 x - 



A 



A Z. 
-7 X" 



Z. 
xf 



F 
A 

7 



"7 



/I N 



A Z. 
"7 X" 



xj- 



v 



xj 



17 



"F 



4 



4 



A 4 



F N 



A 4 



7 X 



F 
A 



xr 

4 



A 4 



V x 



N 
4 



A 4 



F 

A 



XJ 

4 



A 



A Z 



X 



V 
A 



Xj 

4 



A z 



F X 



7 
A 



4 



X 



V 
A 



X] 
4 



A 



^ z 

7 X 



V 

A 



7 



XfF 
A 



A Z_ 
"7 X" 



A Z. 
"7 X~ 



X| 
Z. 

X" 



v 

7 



V 



A N 



Z. 
X" 



A 4- 



XT 



xf 
z. 

X- 



V 
A 

V 



A 



x] 
4 



4 



A 4 



A 4 



F N 



F 

A 



x| 
4 



K 4 



v N 



4 



4 



F 



4 



F 



k 4 



F N 



F 



N 
4 



7 



k 4 



7 ^ 



I7 



4 



✓1 



F N 



F 



4 



F 



7 ^ 



F 



F 



A N 



4 



N~F 



4 



.\ z. 

"7 ^ _ 



4- 



_\ Z- 
~7 \" 



Z. 

"7 \" 



^1 

Z 

z 
z. 



"F 

_ 7 

"F 
A 

F 



t 7 



F N 



4 



7 ^ 



4 



K 4 



F N 



V 



4 



F 



7 



4 



TF 



A 



4 



4 



4 



F n 



F 



7 



N 4 



4 



F N 



4 



F 



7 



7 



4 



7 ^ 



Z. 

-7 \" 



4 



F 



A Z. 
"7 ^ - 



N 
Z. 

V 

4 



F 

A 

7 



A Z. 
~7 \~ 



N~F 



4- 



A 



A 4- 



"7 



A 



A 



F 



F 



A 4 



F N 



4-A 



\ _ 7 



A 4 



F N 



4 



A 



F 



4 



A 4 



F N 



A 



-q 
4 



7 ^ 



V 
A 



7 



A 4 



F N 



4-A 



^ _ 7 



4 



A 4 



7 XI 



A 



F 



4 



A 4 



F N 



A 



A z. 
-7 



4 



F 



A Z. 
"7 V 



A Z. 
"7 X - 



Z. 
X" 

4 

x _ 
4 



F 
A 

7 
A 

"7 

A 



Z_ 

X" 




A 4- 



7 xr 



4- 



A 



A Z_ 
"7 \T 



X' 



7 



4- 



7 N 



^ Z. 
7 \~ 



^ Z. 
7 X - 



4_A 

\~7 
A N 

X~7 
X~7 



A Z_ 
- 7 \ _ 



A Z. 
"7 X" 



A Z. 

~7 X" 



A 4- 



F N 



A 4- 



7 V 



Z. 
X" 



A 4- 



7 \" 



A Z. 
"7 X" 



A Z_ 
"7 A" 



4- 



"F N 



A Z. 
"7 X" 



4. 

X" 
4- 

X" 
4_ 

x - 
z. 

x - 
z_ 

4. 

X - 
4- 

x _ 
4- 



7 

A 

_ 7 
A 

"7 
A 

V 

A 

7 
A 

7 

A 

7 

A 



Z- 
V N 



A Z. 
_ 7 



A 4- 



17 



A 
"7 



A 



A 



"F XT 



Z. 
X" 



A 4. 



A Z. 
~7 X" 



"7 



NT 



\~7 



X" 
Z. 

N 
Z. 

X - 
Z. 

Z. 

X" 
4. 

X - 
Z_ 

X" 
z. 

X" 
z_ 

X" 

ZL 

\~ 
z. 

\- 
z. 

■ 

V 



A 

■7 
A 

"7 
A 

■7 
A 

"7 
A 

7 
A 

7 

7 

7 

"7 
A 

"7 
A 

"7 
A 

"7 



A Z- 
"7 X" 



A Z. 
"7 X" 



A Z_ 
"7 X" 



A Z. 

"7 X" 



A Z. 
"7 V 



A Z. 
"7 X" 



A Z. 
~7 \- 



A 



A 



4. 



"7 X" 



A z. 



A 



V N 



Z. 
X~ 

4- 

N 

4- 

X" 
4_ 

*T 
4. 

X" 
4. 

z. 

\- 
4- 

x - 
4^ 

x - 
z. 

\- 
z. 



7 

A 

7 
7 
7 
7 
7 
7 
7 
7 
7 
7 



A 

"7 



A 

"7 



A 

"7 



_A 
"7 



A 

"7 



A 
"7 



_ 7 



A 

"7 



A 



A 



A 



A Z. 
"7 X - 



A N 



A 
"7 



Disclaimer 



Although this program was tested by its author prior to submission, 
no warranty, express or implied, is made by the author, 1620 USERS 
Group, or IBM as to the accuracy and functioning of the program and 
related program material and no responsibility is assumed by the 
author, 1620 USERS Group, or IBM in connection therewith. 
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PLOT 



PLOT SUBROUTINE FOR FORMAT FORTRAN 

Purpose; This subroutine plots up to 9 curves simultaneously. 

Form of Statement: 

V = PLOT (FLT) 

where: V is a dummy variable name, which will be given the value FLT 

PLOT is the call name of the functional subroutine 
FLT is a floating point number which is the argument of the 

subroutine 
FLT must be scaled such that 
1. < FLT < 80. 

Description of Subroutine: 

Only the integral part of FLT will be considered by this subroutine. The 
first time PLOT is entered, the digit "1" will be stored for punching in column 
FLT of the card {integral part of FLT). The second time PLOT is entered the 
digit "2" will be stored in column FLT of the card. If the argument of PLOT 
should happen to be the same for two different curves, the digit representing 
the latter, curve will be plotted. 

This procedure is repeated until: 

1) FLT is zero, in which case the card will be punched as arranged by 
the previous entrances. A zero argument will clear the punch area 
to blanks and ready the subroutine for the next set of points. A zero 
argument may be the tenth entry, and is the only exception to the 
following paragraph. 

2) A tenth entry, which is forbidden except for zero argument is attempted. 
In this event the message "PLOT" is typed to signal the operator that 

an attempt at plotting 10 curves has been fruitlessly attempted. The 
subroutine initializes and as a consequence of violating the restrictions, 
the first nine curves are lost. 

If the argument (FLT) is out of range, i.e. if FLT < 1. or if FLT > 80. , the 
argument is typed, the typewriter spaces once, and the entrance attempt number 
is typed, which identifies the curve. The sequence of plots is not disrupted by 
such an occurrence. 

The output of the sample problems included herein was listed on an IBM 
407 with an 80-80 control panel. 



-1- 



© 



In the listing of the source program, the statement labeled LI and 
the three following statements must be adjusted to agree with the sub- 
routine number for various compiler decks. 

Storage Requirement: 550 digits 

Reminder : A functional subroutine must be preceded by some arithmetic 
statement before it is called. 
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O 



L 

FLOW CM A- fi. 1 



! 

r 



punch ft* 



Set cL 

I 




proper once 

(g*TT ) 




z= 1 . 

W=»05 
X=0 . 

Y = PL O T ( S I N ( X ) * 3 9 • + 4 • ) 
Y=PLOT (COS <X)*39.+40. ) 
Y=PLOT <SIN(X )/COS(X )+l • ) 

Y = PLOT (LOG( W/)+4. ) 
Y=PLOT (EXP ( X ) ) 
Y=PLOT(Z) 

Y=PLOT( (EXP(X)-EXP(-X ) )/2. + l . ) 
Y=PLOT (Z**(6./5 . ) ) 

Y = PLOT < 13.+»30l*X+.99876*X*X+.0076899*X*X*X) 
Y=PLOT (0.0 ) 

X=X+. 03491 

Z=Z+.5 

W = W+ 1 • 

GO TO 1 

STOP 

END 
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X=»0G031 8 
Y=PLOT (40. ) 

Y^PLOT <X*SIN< 1 */X )*300»+4 0. ) 

Y=PLOT (0.0 ) 

X=X+. 000318 

GO TO 2 

STOP 

END 
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